home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / watt.dir / 00154_Script_Pressure Gauge Object < prev    next >
Text File  |  1997-07-24  |  1KB  |  38 lines
  1. --Instantiated as gPGaugeObj
  2.  
  3. property pQTsprite
  4. property pOperateCursorPropertyList, pOperateCursorList
  5.  
  6. global gUtilityObj, gScoreEventObj
  7. ----------------------------------------------------<<ò>>
  8. on mInit me
  9.   
  10.   set pQTsprite = 23
  11.   set pOperateCursorPropertyList = [23:#Operate]
  12.   set pOperateCursorList = [23]
  13.   return me
  14.   
  15. end mInit
  16. ----------------------------------------------------<<ò>>
  17. on mActivate me
  18.   
  19.   mResetQT( gUtilityObj,23 )
  20.   mSetCursors(gUtilityObj, pOperateCursorPropertyList)
  21.   
  22. end mActivate
  23. ----------------------------------------------------<<ò>>
  24. on mClose me
  25.   
  26.   mUnsetCursorList(gUtilityObj, pOperateCursorList)
  27.   
  28. end mClose
  29. ----------------------------------------------------<<ò>>
  30. on mPGaugeClickOutEvent me
  31.   
  32.   mStopMovAndPullOut (gScoreEventObj, pQTsprite)
  33.   mClose(me)
  34.   
  35. end mPGaugeClickOutEvent
  36. ----------------------------------------------------<<ò>>
  37. ----------------------------------------------------<<ò>>
  38. ----------------------------------------------------<<ò>>